home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 100 / CD-ROM 100.iso / aplic / mtrix2 / matrix.exe / {app} / moveable_feasts.mtx < prev    next >
Encoding:
Text File  |  2000-02-22  |  21.4 KB  |  455 lines
  1. Matrix spreadsheet v2.0
  2. 1612
  3. HAAEHDIEJEFEFKKKKKKKKKKKKK
  4. HAHA
  5. 386
  6. A2=year ->
  7. D2=1975
  8. G2=Table of moveable feasts
  9. B4=Leap
  10. C4=Easter
  11. D4=Ash Wed
  12. F4=Easter
  13. H4=Ascen Thu
  14. J4=Pentecost
  15. M4=Corpus Christi
  16. A5=D2
  17. B5=@if(@mod(A5,4)=0, @if(@mod(A5,100)=0,@if(@mod(A5,400)=0,1,0),1),0)
  18. C5=@if(@easter(A5)<0, @abs(@easter(A5))+59+B5, @easter(A5)+90+B5)
  19. D5=@mod(@getdate(A5, C5-46),32)
  20. E5=@choose(@int(@getdate(A5, C5-46)/32), A$51, A$62)
  21. F5=@mod(@getdate(A5, C5),32)
  22. G5=@choose(@int(@getdate(A5, C5)/32), A$51, A$62)
  23. H5=@mod(@getdate(A5, C5+39),32)
  24. I5=@choose(@int(@getdate(A5, C5+39)/32), A$51, A$62)
  25. J5=@mod(@getdate(A5, C5+49),32)
  26. K5=@choose(@int(@getdate(A5, C5+49)/32), A$51, A$62)
  27. M5=@mod(@getdate(A5, C5+60),32)
  28. N5=@choose(@int(@getdate(A5, C5+60)/32), A$51, A$62)
  29. A6=A5+1
  30. B6=@if(@mod(A6,4)=0, @if(@mod(A6,100)=0,@if(@mod(A6,400)=0,1,0),1),0)
  31. C6=@if(@easter(A6)<0, @abs(@easter(A6))+59+B6, @easter(A6)+90+B6)
  32. D6=@mod(@getdate(A6, C6-46),32)
  33. E6=@choose(@int(@getdate(A6, C6-46)/32), A$51, A$62)
  34. F6=@mod(@getdate(A6, C6),32)
  35. G6=@choose(@int(@getdate(A6, C6)/32), A$51, A$62)
  36. H6=@mod(@getdate(A6, C6+39),32)
  37. I6=@choose(@int(@getdate(A6, C6+39)/32), A$51, A$62)
  38. J6=@mod(@getdate(A6, C6+49),32)
  39. K6=@choose(@int(@getdate(A6, C6+49)/32), A$51, A$62)
  40. M6=@mod(@getdate(A6, C6+60),32)
  41. N6=@choose(@int(@getdate(A6, C6+60)/32), A$51, A$62)
  42. A7=A6+1
  43. B7=@if(@mod(A7,4)=0, @if(@mod(A7,100)=0,@if(@mod(A7,400)=0,1,0),1),0)
  44. C7=@if(@easter(A7)<0, @abs(@easter(A7))+59+B7, @easter(A7)+90+B7)
  45. D7=@mod(@getdate(A7, C7-46),32)
  46. E7=@choose(@int(@getdate(A7, C7-46)/32), A$51, A$62)
  47. F7=@mod(@getdate(A7, C7),32)
  48. G7=@choose(@int(@getdate(A7, C7)/32), A$51, A$62)
  49. H7=@mod(@getdate(A7, C7+39),32)
  50. I7=@choose(@int(@getdate(A7, C7+39)/32), A$51, A$62)
  51. J7=@mod(@getdate(A7, C7+49),32)
  52. K7=@choose(@int(@getdate(A7, C7+49)/32), A$51, A$62)
  53. M7=@mod(@getdate(A7, C7+60),32)
  54. N7=@choose(@int(@getdate(A7, C7+60)/32), A$51, A$62)
  55. A8=A7+1
  56. B8=@if(@mod(A8,4)=0, @if(@mod(A8,100)=0,@if(@mod(A8,400)=0,1,0),1),0)
  57. C8=@if(@easter(A8)<0, @abs(@easter(A8))+59+B8, @easter(A8)+90+B8)
  58. D8=@mod(@getdate(A8, C8-46),32)
  59. E8=@choose(@int(@getdate(A8, C8-46)/32), A$51, A$62)
  60. F8=@mod(@getdate(A8, C8),32)
  61. G8=@choose(@int(@getdate(A8, C8)/32), A$51, A$62)
  62. H8=@mod(@getdate(A8, C8+39),32)
  63. I8=@choose(@int(@getdate(A8, C8+39)/32), A$51, A$62)
  64. J8=@mod(@getdate(A8, C8+49),32)
  65. K8=@choose(@int(@getdate(A8, C8+49)/32), A$51, A$62)
  66. M8=@mod(@getdate(A8, C8+60),32)
  67. N8=@choose(@int(@getdate(A8, C8+60)/32), A$51, A$62)
  68. A9=A8+1
  69. B9=@if(@mod(A9,4)=0, @if(@mod(A9,100)=0,@if(@mod(A9,400)=0,1,0),1),0)
  70. C9=@if(@easter(A9)<0, @abs(@easter(A9))+59+B9, @easter(A9)+90+B9)
  71. D9=@mod(@getdate(A9, C9-46),32)
  72. E9=@choose(@int(@getdate(A9, C9-46)/32), A$51, A$62)
  73. F9=@mod(@getdate(A9, C9),32)
  74. G9=@choose(@int(@getdate(A9, C9)/32), A$51, A$62)
  75. H9=@mod(@getdate(A9, C9+39),32)
  76. I9=@choose(@int(@getdate(A9, C9+39)/32), A$51, A$62)
  77. J9=@mod(@getdate(A9, C9+49),32)
  78. K9=@choose(@int(@getdate(A9, C9+49)/32), A$51, A$62)
  79. M9=@mod(@getdate(A9, C9+60),32)
  80. N9=@choose(@int(@getdate(A9, C9+60)/32), A$51, A$62)
  81. A10=A9+1
  82. B10=@if(@mod(A10,4)=0, @if(@mod(A10,100)=0,@if(@mod(A10,400)=0,1,0),1),0)
  83. C10=@if(@easter(A10)<0, @abs(@easter(A10))+59+B10, @easter(A10)+90+B10)
  84. D10=@mod(@getdate(A10, C10-46),32)
  85. E10=@choose(@int(@getdate(A10, C10-46)/32), A$51, A$62)
  86. F10=@mod(@getdate(A10, C10),32)
  87. G10=@choose(@int(@getdate(A10, C10)/32), A$51, A$62)
  88. H10=@mod(@getdate(A10, C10+39),32)
  89. I10=@choose(@int(@getdate(A10, C10+39)/32), A$51, A$62)
  90. J10=@mod(@getdate(A10, C10+49),32)
  91. K10=@choose(@int(@getdate(A10, C10+49)/32), A$51, A$62)
  92. M10=@mod(@getdate(A10, C10+60),32)
  93. N10=@choose(@int(@getdate(A10, C10+60)/32), A$51, A$62)
  94. A11=A10+1
  95. B11=@if(@mod(A11,4)=0, @if(@mod(A11,100)=0,@if(@mod(A11,400)=0,1,0),1),0)
  96. C11=@if(@easter(A11)<0, @abs(@easter(A11))+59+B11, @easter(A11)+90+B11)
  97. D11=@mod(@getdate(A11, C11-46),32)
  98. E11=@choose(@int(@getdate(A11, C11-46)/32), A$51, A$62)
  99. F11=@mod(@getdate(A11, C11),32)
  100. G11=@choose(@int(@getdate(A11, C11)/32), A$51, A$62)
  101. H11=@mod(@getdate(A11, C11+39),32)
  102. I11=@choose(@int(@getdate(A11, C11+39)/32), A$51, A$62)
  103. J11=@mod(@getdate(A11, C11+49),32)
  104. K11=@choose(@int(@getdate(A11, C11+49)/32), A$51, A$62)
  105. M11=@mod(@getdate(A11, C11+60),32)
  106. N11=@choose(@int(@getdate(A11, C11+60)/32), A$51, A$62)
  107. A12=A11+1
  108. B12=@if(@mod(A12,4)=0, @if(@mod(A12,100)=0,@if(@mod(A12,400)=0,1,0),1),0)
  109. C12=@if(@easter(A12)<0, @abs(@easter(A12))+59+B12, @easter(A12)+90+B12)
  110. D12=@mod(@getdate(A12, C12-46),32)
  111. E12=@choose(@int(@getdate(A12, C12-46)/32), A$51, A$62)
  112. F12=@mod(@getdate(A12, C12),32)
  113. G12=@choose(@int(@getdate(A12, C12)/32), A$51, A$62)
  114. H12=@mod(@getdate(A12, C12+39),32)
  115. I12=@choose(@int(@getdate(A12, C12+39)/32), A$51, A$62)
  116. J12=@mod(@getdate(A12, C12+49),32)
  117. K12=@choose(@int(@getdate(A12, C12+49)/32), A$51, A$62)
  118. M12=@mod(@getdate(A12, C12+60),32)
  119. N12=@choose(@int(@getdate(A12, C12+60)/32), A$51, A$62)
  120. A13=A12+1
  121. B13=@if(@mod(A13,4)=0, @if(@mod(A13,100)=0,@if(@mod(A13,400)=0,1,0),1),0)
  122. C13=@if(@easter(A13)<0, @abs(@easter(A13))+59+B13, @easter(A13)+90+B13)
  123. D13=@mod(@getdate(A13, C13-46),32)
  124. E13=@choose(@int(@getdate(A13, C13-46)/32), A$51, A$62)
  125. F13=@mod(@getdate(A13, C13),32)
  126. G13=@choose(@int(@getdate(A13, C13)/32), A$51, A$62)
  127. H13=@mod(@getdate(A13, C13+39),32)
  128. I13=@choose(@int(@getdate(A13, C13+39)/32), A$51, A$62)
  129. J13=@mod(@getdate(A13, C13+49),32)
  130. K13=@choose(@int(@getdate(A13, C13+49)/32), A$51, A$62)
  131. M13=@mod(@getdate(A13, C13+60),32)
  132. N13=@choose(@int(@getdate(A13, C13+60)/32), A$51, A$62)
  133. A14=A13+1
  134. B14=@if(@mod(A14,4)=0, @if(@mod(A14,100)=0,@if(@mod(A14,400)=0,1,0),1),0)
  135. C14=@if(@easter(A14)<0, @abs(@easter(A14))+59+B14, @easter(A14)+90+B14)
  136. D14=@mod(@getdate(A14, C14-46),32)
  137. E14=@choose(@int(@getdate(A14, C14-46)/32), A$51, A$62)
  138. F14=@mod(@getdate(A14, C14),32)
  139. G14=@choose(@int(@getdate(A14, C14)/32), A$51, A$62)
  140. H14=@mod(@getdate(A14, C14+39),32)
  141. I14=@choose(@int(@getdate(A14, C14+39)/32), A$51, A$62)
  142. J14=@mod(@getdate(A14, C14+49),32)
  143. K14=@choose(@int(@getdate(A14, C14+49)/32), A$51, A$62)
  144. M14=@mod(@getdate(A14, C14+60),32)
  145. N14=@choose(@int(@getdate(A14, C14+60)/32), A$51, A$62)
  146. A15=A14+1
  147. B15=@if(@mod(A15,4)=0, @if(@mod(A15,100)=0,@if(@mod(A15,400)=0,1,0),1),0)
  148. C15=@if(@easter(A15)<0, @abs(@easter(A15))+59+B15, @easter(A15)+90+B15)
  149. D15=@mod(@getdate(A15, C15-46),32)
  150. E15=@choose(@int(@getdate(A15, C15-46)/32), A$51, A$62)
  151. F15=@mod(@getdate(A15, C15),32)
  152. G15=@choose(@int(@getdate(A15, C15)/32), A$51, A$62)
  153. H15=@mod(@getdate(A15, C15+39),32)
  154. I15=@choose(@int(@getdate(A15, C15+39)/32), A$51, A$62)
  155. J15=@mod(@getdate(A15, C15+49),32)
  156. K15=@choose(@int(@getdate(A15, C15+49)/32), A$51, A$62)
  157. M15=@mod(@getdate(A15, C15+60),32)
  158. N15=@choose(@int(@getdate(A15, C15+60)/32), A$51, A$62)
  159. A16=A15+1
  160. B16=@if(@mod(A16,4)=0, @if(@mod(A16,100)=0,@if(@mod(A16,400)=0,1,0),1),0)
  161. C16=@if(@easter(A16)<0, @abs(@easter(A16))+59+B16, @easter(A16)+90+B16)
  162. D16=@mod(@getdate(A16, C16-46),32)
  163. E16=@choose(@int(@getdate(A16, C16-46)/32), A$51, A$62)
  164. F16=@mod(@getdate(A16, C16),32)
  165. G16=@choose(@int(@getdate(A16, C16)/32), A$51, A$62)
  166. H16=@mod(@getdate(A16, C16+39),32)
  167. I16=@choose(@int(@getdate(A16, C16+39)/32), A$51, A$62)
  168. J16=@mod(@getdate(A16, C16+49),32)
  169. K16=@choose(@int(@getdate(A16, C16+49)/32), A$51, A$62)
  170. M16=@mod(@getdate(A16, C16+60),32)
  171. N16=@choose(@int(@getdate(A16, C16+60)/32), A$51, A$62)
  172. A17=A16+1
  173. B17=@if(@mod(A17,4)=0, @if(@mod(A17,100)=0,@if(@mod(A17,400)=0,1,0),1),0)
  174. C17=@if(@easter(A17)<0, @abs(@easter(A17))+59+B17, @easter(A17)+90+B17)
  175. D17=@mod(@getdate(A17, C17-46),32)
  176. E17=@choose(@int(@getdate(A17, C17-46)/32), A$51, A$62)
  177. F17=@mod(@getdate(A17, C17),32)
  178. G17=@choose(@int(@getdate(A17, C17)/32), A$51, A$62)
  179. H17=@mod(@getdate(A17, C17+39),32)
  180. I17=@choose(@int(@getdate(A17, C17+39)/32), A$51, A$62)
  181. J17=@mod(@getdate(A17, C17+49),32)
  182. K17=@choose(@int(@getdate(A17, C17+49)/32), A$51, A$62)
  183. M17=@mod(@getdate(A17, C17+60),32)
  184. N17=@choose(@int(@getdate(A17, C17+60)/32), A$51, A$62)
  185. A18=A17+1
  186. B18=@if(@mod(A18,4)=0, @if(@mod(A18,100)=0,@if(@mod(A18,400)=0,1,0),1),0)
  187. C18=@if(@easter(A18)<0, @abs(@easter(A18))+59+B18, @easter(A18)+90+B18)
  188. D18=@mod(@getdate(A18, C18-46),32)
  189. E18=@choose(@int(@getdate(A18, C18-46)/32), A$51, A$62)
  190. F18=@mod(@getdate(A18, C18),32)
  191. G18=@choose(@int(@getdate(A18, C18)/32), A$51, A$62)
  192. H18=@mod(@getdate(A18, C18+39),32)
  193. I18=@choose(@int(@getdate(A18, C18+39)/32), A$51, A$62)
  194. J18=@mod(@getdate(A18, C18+49),32)
  195. K18=@choose(@int(@getdate(A18, C18+49)/32), A$51, A$62)
  196. M18=@mod(@getdate(A18, C18+60),32)
  197. N18=@choose(@int(@getdate(A18, C18+60)/32), A$51, A$62)
  198. A19=A18+1
  199. B19=@if(@mod(A19,4)=0, @if(@mod(A19,100)=0,@if(@mod(A19,400)=0,1,0),1),0)
  200. C19=@if(@easter(A19)<0, @abs(@easter(A19))+59+B19, @easter(A19)+90+B19)
  201. D19=@mod(@getdate(A19, C19-46),32)
  202. E19=@choose(@int(@getdate(A19, C19-46)/32), A$51, A$62)
  203. F19=@mod(@getdate(A19, C19),32)
  204. G19=@choose(@int(@getdate(A19, C19)/32), A$51, A$62)
  205. H19=@mod(@getdate(A19, C19+39),32)
  206. I19=@choose(@int(@getdate(A19, C19+39)/32), A$51, A$62)
  207. J19=@mod(@getdate(A19, C19+49),32)
  208. K19=@choose(@int(@getdate(A19, C19+49)/32), A$51, A$62)
  209. M19=@mod(@getdate(A19, C19+60),32)
  210. N19=@choose(@int(@getdate(A19, C19+60)/32), A$51, A$62)
  211. A20=A19+1
  212. B20=@if(@mod(A20,4)=0, @if(@mod(A20,100)=0,@if(@mod(A20,400)=0,1,0),1),0)
  213. C20=@if(@easter(A20)<0, @abs(@easter(A20))+59+B20, @easter(A20)+90+B20)
  214. D20=@mod(@getdate(A20, C20-46),32)
  215. E20=@choose(@int(@getdate(A20, C20-46)/32), A$51, A$62)
  216. F20=@mod(@getdate(A20, C20),32)
  217. G20=@choose(@int(@getdate(A20, C20)/32), A$51, A$62)
  218. H20=@mod(@getdate(A20, C20+39),32)
  219. I20=@choose(@int(@getdate(A20, C20+39)/32), A$51, A$62)
  220. J20=@mod(@getdate(A20, C20+49),32)
  221. K20=@choose(@int(@getdate(A20, C20+49)/32), A$51, A$62)
  222. M20=@mod(@getdate(A20, C20+60),32)
  223. N20=@choose(@int(@getdate(A20, C20+60)/32), A$51, A$62)
  224. A21=A20+1
  225. B21=@if(@mod(A21,4)=0, @if(@mod(A21,100)=0,@if(@mod(A21,400)=0,1,0),1),0)
  226. C21=@if(@easter(A21)<0, @abs(@easter(A21))+59+B21, @easter(A21)+90+B21)
  227. D21=@mod(@getdate(A21, C21-46),32)
  228. E21=@choose(@int(@getdate(A21, C21-46)/32), A$51, A$62)
  229. F21=@mod(@getdate(A21, C21),32)
  230. G21=@choose(@int(@getdate(A21, C21)/32), A$51, A$62)
  231. H21=@mod(@getdate(A21, C21+39),32)
  232. I21=@choose(@int(@getdate(A21, C21+39)/32), A$51, A$62)
  233. J21=@mod(@getdate(A21, C21+49),32)
  234. K21=@choose(@int(@getdate(A21, C21+49)/32), A$51, A$62)
  235. M21=@mod(@getdate(A21, C21+60),32)
  236. N21=@choose(@int(@getdate(A21, C21+60)/32), A$51, A$62)
  237. A22=A21+1
  238. B22=@if(@mod(A22,4)=0, @if(@mod(A22,100)=0,@if(@mod(A22,400)=0,1,0),1),0)
  239. C22=@if(@easter(A22)<0, @abs(@easter(A22))+59+B22, @easter(A22)+90+B22)
  240. D22=@mod(@getdate(A22, C22-46),32)
  241. E22=@choose(@int(@getdate(A22, C22-46)/32), A$51, A$62)
  242. F22=@mod(@getdate(A22, C22),32)
  243. G22=@choose(@int(@getdate(A22, C22)/32), A$51, A$62)
  244. H22=@mod(@getdate(A22, C22+39),32)
  245. I22=@choose(@int(@getdate(A22, C22+39)/32), A$51, A$62)
  246. J22=@mod(@getdate(A22, C22+49),32)
  247. K22=@choose(@int(@getdate(A22, C22+49)/32), A$51, A$62)
  248. M22=@mod(@getdate(A22, C22+60),32)
  249. N22=@choose(@int(@getdate(A22, C22+60)/32), A$51, A$62)
  250. A23=A22+1
  251. B23=@if(@mod(A23,4)=0, @if(@mod(A23,100)=0,@if(@mod(A23,400)=0,1,0),1),0)
  252. C23=@if(@easter(A23)<0, @abs(@easter(A23))+59+B23, @easter(A23)+90+B23)
  253. D23=@mod(@getdate(A23, C23-46),32)
  254. E23=@choose(@int(@getdate(A23, C23-46)/32), A$51, A$62)
  255. F23=@mod(@getdate(A23, C23),32)
  256. G23=@choose(@int(@getdate(A23, C23)/32), A$51, A$62)
  257. H23=@mod(@getdate(A23, C23+39),32)
  258. I23=@choose(@int(@getdate(A23, C23+39)/32), A$51, A$62)
  259. J23=@mod(@getdate(A23, C23+49),32)
  260. K23=@choose(@int(@getdate(A23, C23+49)/32), A$51, A$62)
  261. M23=@mod(@getdate(A23, C23+60),32)
  262. N23=@choose(@int(@getdate(A23, C23+60)/32), A$51, A$62)
  263. A24=A23+1
  264. B24=@if(@mod(A24,4)=0, @if(@mod(A24,100)=0,@if(@mod(A24,400)=0,1,0),1),0)
  265. C24=@if(@easter(A24)<0, @abs(@easter(A24))+59+B24, @easter(A24)+90+B24)
  266. D24=@mod(@getdate(A24, C24-46),32)
  267. E24=@choose(@int(@getdate(A24, C24-46)/32), A$51, A$62)
  268. F24=@mod(@getdate(A24, C24),32)
  269. G24=@choose(@int(@getdate(A24, C24)/32), A$51, A$62)
  270. H24=@mod(@getdate(A24, C24+39),32)
  271. I24=@choose(@int(@getdate(A24, C24+39)/32), A$51, A$62)
  272. J24=@mod(@getdate(A24, C24+49),32)
  273. K24=@choose(@int(@getdate(A24, C24+49)/32), A$51, A$62)
  274. M24=@mod(@getdate(A24, C24+60),32)
  275. N24=@choose(@int(@getdate(A24, C24+60)/32), A$51, A$62)
  276. A25=A24+1
  277. B25=@if(@mod(A25,4)=0, @if(@mod(A25,100)=0,@if(@mod(A25,400)=0,1,0),1),0)
  278. C25=@if(@easter(A25)<0, @abs(@easter(A25))+59+B25, @easter(A25)+90+B25)
  279. D25=@mod(@getdate(A25, C25-46),32)
  280. E25=@choose(@int(@getdate(A25, C25-46)/32), A$51, A$62)
  281. F25=@mod(@getdate(A25, C25),32)
  282. G25=@choose(@int(@getdate(A25, C25)/32), A$51, A$62)
  283. H25=@mod(@getdate(A25, C25+39),32)
  284. I25=@choose(@int(@getdate(A25, C25+39)/32), A$51, A$62)
  285. J25=@mod(@getdate(A25, C25+49),32)
  286. K25=@choose(@int(@getdate(A25, C25+49)/32), A$51, A$62)
  287. M25=@mod(@getdate(A25, C25+60),32)
  288. N25=@choose(@int(@getdate(A25, C25+60)/32), A$51, A$62)
  289. A26=A25+1
  290. B26=@if(@mod(A26,4)=0, @if(@mod(A26,100)=0,@if(@mod(A26,400)=0,1,0),1),0)
  291. C26=@if(@easter(A26)<0, @abs(@easter(A26))+59+B26, @easter(A26)+90+B26)
  292. D26=@mod(@getdate(A26, C26-46),32)
  293. E26=@choose(@int(@getdate(A26, C26-46)/32), A$51, A$62)
  294. F26=@mod(@getdate(A26, C26),32)
  295. G26=@choose(@int(@getdate(A26, C26)/32), A$51, A$62)
  296. H26=@mod(@getdate(A26, C26+39),32)
  297. I26=@choose(@int(@getdate(A26, C26+39)/32), A$51, A$62)
  298. J26=@mod(@getdate(A26, C26+49),32)
  299. K26=@choose(@int(@getdate(A26, C26+49)/32), A$51, A$62)
  300. M26=@mod(@getdate(A26, C26+60),32)
  301. N26=@choose(@int(@getdate(A26, C26+60)/32), A$51, A$62)
  302. A27=A26+1
  303. B27=@if(@mod(A27,4)=0, @if(@mod(A27,100)=0,@if(@mod(A27,400)=0,1,0),1),0)
  304. C27=@if(@easter(A27)<0, @abs(@easter(A27))+59+B27, @easter(A27)+90+B27)
  305. D27=@mod(@getdate(A27, C27-46),32)
  306. E27=@choose(@int(@getdate(A27, C27-46)/32), A$51, A$62)
  307. F27=@mod(@getdate(A27, C27),32)
  308. G27=@choose(@int(@getdate(A27, C27)/32), A$51, A$62)
  309. H27=@mod(@getdate(A27, C27+39),32)
  310. I27=@choose(@int(@getdate(A27, C27+39)/32), A$51, A$62)
  311. J27=@mod(@getdate(A27, C27+49),32)
  312. K27=@choose(@int(@getdate(A27, C27+49)/32), A$51, A$62)
  313. M27=@mod(@getdate(A27, C27+60),32)
  314. N27=@choose(@int(@getdate(A27, C27+60)/32), A$51, A$62)
  315. A28=A27+1
  316. B28=@if(@mod(A28,4)=0, @if(@mod(A28,100)=0,@if(@mod(A28,400)=0,1,0),1),0)
  317. C28=@if(@easter(A28)<0, @abs(@easter(A28))+59+B28, @easter(A28)+90+B28)
  318. D28=@mod(@getdate(A28, C28-46),32)
  319. E28=@choose(@int(@getdate(A28, C28-46)/32), A$51, A$62)
  320. F28=@mod(@getdate(A28, C28),32)
  321. G28=@choose(@int(@getdate(A28, C28)/32), A$51, A$62)
  322. H28=@mod(@getdate(A28, C28+39),32)
  323. I28=@choose(@int(@getdate(A28, C28+39)/32), A$51, A$62)
  324. J28=@mod(@getdate(A28, C28+49),32)
  325. K28=@choose(@int(@getdate(A28, C28+49)/32), A$51, A$62)
  326. M28=@mod(@getdate(A28, C28+60),32)
  327. N28=@choose(@int(@getdate(A28, C28+60)/32), A$51, A$62)
  328. A29=A28+1
  329. B29=@if(@mod(A29,4)=0, @if(@mod(A29,100)=0,@if(@mod(A29,400)=0,1,0),1),0)
  330. C29=@if(@easter(A29)<0, @abs(@easter(A29))+59+B29, @easter(A29)+90+B29)
  331. D29=@mod(@getdate(A29, C29-46),32)
  332. E29=@choose(@int(@getdate(A29, C29-46)/32), A$51, A$62)
  333. F29=@mod(@getdate(A29, C29),32)
  334. G29=@choose(@int(@getdate(A29, C29)/32), A$51, A$62)
  335. H29=@mod(@getdate(A29, C29+39),32)
  336. I29=@choose(@int(@getdate(A29, C29+39)/32), A$51, A$62)
  337. J29=@mod(@getdate(A29, C29+49),32)
  338. K29=@choose(@int(@getdate(A29, C29+49)/32), A$51, A$62)
  339. M29=@mod(@getdate(A29, C29+60),32)
  340. N29=@choose(@int(@getdate(A29, C29+60)/32), A$51, A$62)
  341. A30=A29+1
  342. B30=@if(@mod(A30,4)=0, @if(@mod(A30,100)=0,@if(@mod(A30,400)=0,1,0),1),0)
  343. C30=@if(@easter(A30)<0, @abs(@easter(A30))+59+B30, @easter(A30)+90+B30)
  344. D30=@mod(@getdate(A30, C30-46),32)
  345. E30=@choose(@int(@getdate(A30, C30-46)/32), A$51, A$62)
  346. F30=@mod(@getdate(A30, C30),32)
  347. G30=@choose(@int(@getdate(A30, C30)/32), A$51, A$62)
  348. H30=@mod(@getdate(A30, C30+39),32)
  349. I30=@choose(@int(@getdate(A30, C30+39)/32), A$51, A$62)
  350. J30=@mod(@getdate(A30, C30+49),32)
  351. K30=@choose(@int(@getdate(A30, C30+49)/32), A$51, A$62)
  352. M30=@mod(@getdate(A30, C30+60),32)
  353. N30=@choose(@int(@getdate(A30, C30+60)/32), A$51, A$62)
  354. A31=A30+1
  355. B31=@if(@mod(A31,4)=0, @if(@mod(A31,100)=0,@if(@mod(A31,400)=0,1,0),1),0)
  356. C31=@if(@easter(A31)<0, @abs(@easter(A31))+59+B31, @easter(A31)+90+B31)
  357. D31=@mod(@getdate(A31, C31-46),32)
  358. E31=@choose(@int(@getdate(A31, C31-46)/32), A$51, A$62)
  359. F31=@mod(@getdate(A31, C31),32)
  360. G31=@choose(@int(@getdate(A31, C31)/32), A$51, A$62)
  361. H31=@mod(@getdate(A31, C31+39),32)
  362. I31=@choose(@int(@getdate(A31, C31+39)/32), A$51, A$62)
  363. J31=@mod(@getdate(A31, C31+49),32)
  364. K31=@choose(@int(@getdate(A31, C31+49)/32), A$51, A$62)
  365. M31=@mod(@getdate(A31, C31+60),32)
  366. N31=@choose(@int(@getdate(A31, C31+60)/32), A$51, A$62)
  367. A32=A31+1
  368. B32=@if(@mod(A32,4)=0, @if(@mod(A32,100)=0,@if(@mod(A32,400)=0,1,0),1),0)
  369. C32=@if(@easter(A32)<0, @abs(@easter(A32))+59+B32, @easter(A32)+90+B32)
  370. D32=@mod(@getdate(A32, C32-46),32)
  371. E32=@choose(@int(@getdate(A32, C32-46)/32), A$51, A$62)
  372. F32=@mod(@getdate(A32, C32),32)
  373. G32=@choose(@int(@getdate(A32, C32)/32), A$51, A$62)
  374. H32=@mod(@getdate(A32, C32+39),32)
  375. I32=@choose(@int(@getdate(A32, C32+39)/32), A$51, A$62)
  376. J32=@mod(@getdate(A32, C32+49),32)
  377. K32=@choose(@int(@getdate(A32, C32+49)/32), A$51, A$62)
  378. M32=@mod(@getdate(A32, C32+60),32)
  379. N32=@choose(@int(@getdate(A32, C32+60)/32), A$51, A$62)
  380. A51=Jan
  381. A52=Feb
  382. A53=Mar
  383. A54=Apr
  384. A55=May
  385. A56=Jun
  386. A57=Jul
  387. A58=Aug
  388. A59=Sep
  389. A60=Oct
  390. A61=Nov
  391. A62=Dec
  392. Properties
  393. Ç11ÇÇÇÇÇÇÇÇÇÇÇÇqqqqqqqqqqq
  394. q!qq±qqááááqqqqqqqqqqqqqqqq
  395. Ç11ÇÇÇÇÇÇÇÇÇÇÇÇqqqqqqqqqqq
  396. qq!q!ßâßßâßßâßßâßßßâßÇqqqqqqqqqqq
  397. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  398. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  399. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  400. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  401. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  402. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  403. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  404. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  405. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  406. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  407. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  408. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  409. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  410. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  411. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  412. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  413. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  414. αíq!q!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  415. αí1!1!íííòíííòíííòíííòííííòÇqqqqqqqqqqq
  416. αíq!q!íííòíííòíííòíííòííííòqqqqqqqqqqqq
  417. αí1!1!íííòíííòíííòíííòííííò1qqqqqqqqqqq
  418. αíq!q!íííòíííòíííòíííòííííòqqqqqqqqqqqq
  419. αí1!1!íííòíííòíííòíííòííííò1qqqqqqqqqqq
  420. αíq!q!íííòíííòíííòíííòííííòqqqqqqqqqqqq
  421. αí1!1!íííòíííòíííòíííòííííò1qqqqqqqqqqq
  422. αíq!q!íííòíííòíííòíííòííííòqqqqqqqqqqqq
  423. αí1!1!íííòíííòíííòíííòííííò1qqqqqqqqqqq
  424. αíq!q!íííòíííòíííòíííòííííòqqqqqqqqqqqq
  425. 111111111111111qqqqqqqqqqq
  426. qqqqqqqqqqqqqqqqqqqqqqqqqq
  427. 111111111111111qqqqqqqqqqq
  428. qqqqqqqqqqqqqqqqqqqqqqqqqq
  429. 111111111111111qqqqqqqqqqq
  430. qqqqqqqqqqqqqqqqqqqqqqqqqq
  431. 111111111111111qqqqqqqqqqq
  432. qqqqqqqqqqqqqqqqqqqqqqqqqq
  433. 111111111111111qqqqqqqqqqq
  434. qqqqqqqqqqqqqqqqqqqqqqqqqq
  435. 111111111111111qqqqqqqqqqq
  436. qqqqqqqqqqqqqqqqqqqqqqqqqq
  437. 111111111111111qqqqqqqqqqq
  438. qqqqqqqqqqqqqqqqqqqqqqqqqq
  439. 111111111111111qqqqqqqqqqq
  440. qqqqqqqqqqqqqqqqqqqqqqqqqq
  441. 111111111111111qqqqqqqqqqq
  442. qqqqqqqqqqqqqqqqqqqqqqqqqq
  443. 411111111111111qqqqqqqqqqq
  444. xqqqqqqqqqqqqqqqqqqqqqqqqq
  445. 411111111111111qqqqqqqqqqq
  446. xqqqqqqqqqqqqqqqqqqqqqqqqq
  447. 411111111111111qqqqqqqqqqq
  448. xqqqqqqqqqqqqqqqqqqqqqqqqq
  449. 411111111111111qqqqqqqqqqq
  450. xqqqqqqqqqqqqqqqqqqqqqqqqq
  451. 411111111111111qqqqqqqqqqq
  452. xqqqqqqqqqqqqqqqqqqqqqqqqq
  453. 411111111111111qqqqqqqqqqq
  454. xqqqqqqqqqqqqqqqqqqqqqqqqq
  455.